1000 CLR
2000 PRINT"[147][144]":POKE53280,5:POKE53281,13
2010 A$="        **** TIME SOFTWARE ****"
2020 FORI=1TO LEN(A$)
2030 FORZZ=1TO200:NEXTZZ
2040 PRINTMID$(A$,I,1);:NEXTI
2050 PRINT:PRINT:PRINT
2060 A$="               PRESENTS        "
2070 FORI=1TO LEN(A$)
2080 FORZZ=1TO200:NEXTZZ
2090 PRINTMID$(A$,I,1);:NEXTI
2100 PRINT:FORT=1TO3000:NEXTT
2105 PRINT""
2110 A$="T A X C A L C 84"
2120 A$="           "+A$
2130 FORI=1TOLEN(A$)
2140 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
2150 FORZZ=1TO25:NEXTZZ:NEXTI
2160 PRINT"[144]"
2170 A$="         LOADING INSTRUCTIONS"
2180 FORI=1TO LEN(A$)
2190 FORZZ=1TO200:NEXTZZ
2200 PRINTMID$(A$,I,1);:NEXTI
3000 LOAD"0:INS",8
3010 RUN